home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 September / PCgo 2008-09 (DVD).iso / interface / contents / windowspaket_6426 / 20022 / files / w / e / winfaq.chm / tip1000 / tip1094.htm < prev    next >
Encoding:
Extensible Markup Language  |  2008-07-14  |  3.4 KB  |  60 lines
  1. <?xml version="1.0" encoding="Windows-1252"?>
  2. <html xmlns:MadCap="http://www.madcapsoftware.com/Schemas/MadCap.xsd" MadCap:tocPath="Anwendungsprogramme|Office">
  3.     <head>
  4.         <meta http-equiv="Content-Type" content="text/html; charset=Windows-1252" /><title>Diagramme als Grafik speichern</title>
  5.         <!--sphider_noindex-->
  6.         <meta name="keywords" content="Windows Vista, windows xp, 2003, 2000, Tipp, ME, Millennium, 98, windows 95, windows nt, Registy, tuning, tweak ui, internet explorer, internet,Excel,Grafik,Macro" />
  7.         <link href="../primary.css" rel="stylesheet" type="text/css" />
  8.         <script src="../skinsupport/madcaputilities.js">/*<![CDATA[*/ /*]]>*/</script>
  9.         <script src="../skinsupport/madcapbody.js">/*<![CDATA[*/ /*]]>*/</script>
  10.         <script src="../skinsupport/madcaphighlighter.js">/*<![CDATA[*/ /*]]>*/</script>
  11.     </head>
  12.     <body><script language="javascript">
  13. if (window.name != "content")
  14.     document.write("<center><a href='../index.html?page=tip1000/tip1094.htm'>show framing</a></center>")
  15. </script>
  16.         <h1><a name="kanchor6413"></a>Diagramme als Grafik speichern</h1>
  17.         <p class="htmlsystem"><a href="../tip0000/tip0001.htm" title="Alle Betriebssysteme"><img src="../icons/allebs.png" alt="Alle Betriebssysteme" /></a>
  18.         </p>
  19.         <hr width="100%" size="4" align="center" />
  20.         <p>
  21.             <img src="../icons/info.png" alt="Icons/info.png" width="36" height="38" align="BASELINE" border="0" />
  22.         </p>
  23.         <p><a name="kanchor6414"></a>Diagramme in Excel lassen sich zwar mit der Tabelle speichern, nicht aber extern als Grafik.</p>
  24.         <p> </p>
  25.         <p>Von <u>Bernd Held </u>(Autor bekannter Fachbⁿcher zu Excel) stammt das folgende <b><a name="kanchor6415"></a>Macro</b>, welches das Diagramm als GIF oder JPG speichert. Hierzu muss im Quelltext einfach GIF durch JPG ersetzt werden. Mit dem Macro fⁿr Excel97/2000 wird das Diagramm genau in der Gr÷▀e gespeichert, wie es auf dem Bildschirm gerade zu sehen ist und im Ordner abgelegt, der als Const PfadDiagramm angegeben ist.</p>
  26.         <p> </p>
  27.         <p class="htmllisting"><b>Sub DiagrameinmalsGifSpeichern()</b>
  28.         </p>
  29.         <p class="htmllisting"><b>Dim GDiagramm As Chart</b>
  30.         </p>
  31.         <p class="htmllisting"><b>Dim NameT As String</b>
  32.         </p>
  33.         <p class="htmllisting"><b>Const PfadDiagramm = "C:\temp\"</b>
  34.         </p>
  35.         <p class="htmllisting"><b>Set GDiagramm = ActiveChart</b>
  36.         </p>
  37.         <p class="htmllisting"><b>NameT = InputBox("Name der Datei:", "Export Chart", ActiveChart.Name)</b>
  38.         </p>
  39.         <p class="htmllisting"><b>If NameT <> "" Then</b>
  40.         </p>
  41.         <p class="htmllisting"><b>GDiagramm.Export Filename:=PfadDiagramm & NameT & ".GIF", FilterName:="GIF"</b>
  42.         </p>
  43.         <p class="htmllisting"><b>End If</b>
  44.         </p>
  45.         <p class="htmllisting"><b>End Sub</b>
  46.         </p>
  47.         <!--sphider_noindex-->
  48.         <hr />
  49.         <p style="text-align: center;"><strong>URL: 
  50.                         http://www.winfaq.de/faq_html/Content/tip1000/tip1094.htm</strong>
  51.         </p>
  52.         <p style="text-align: center;"><strong>WinFAQ « Version 7.6 Copyright ⌐ 1996/2008 by Frank Ullrich</strong>
  53.         </p>
  54.         <!--/sphider_noindex-->
  55.         <div class="separator">
  56.         </div>
  57.         <script type="text/javascript" src="../skinsupport/madcapbodyend.js">
  58.         </script>
  59.     </body>
  60. </html>